!------------------------------egs5_useful.f----------------------------
! Version: 051219-1435
!-----------------------------------------------------------------------
!23456789|123456789|123456789|123456789|123456789|123456789|123456789|12

      common/USEFUL/                       
     * RM,                                          
     * medium,                  
     * medold,                                
     * iblobe         

      real*8 RM
      integer medium,medold,iblobe

!-----------------------last line of egs5_useful.f---------------------
